    ORG     0000H
    AJMP    MAIN
    ORG     0030H
MAIN:
    MOV     A,#0FFH 
    CLR     C       
    MOV     R2,#08H 

LOOP1:  
    RLC     A       /*????*/
    MOV     P1,A    
    ACALL   DEL     
    DJNZ    R2,LOOP1    
    MOV     R2,#08H 

LOOP2:  
    RRC     A       /*????*/
    MOV     P1,A    
    ACALL   DEL 
    DJNZ    R2,LOOP2    
    JMP     MAIN    


DEL:    MOV R5,#05H    /*????????*/
DEL1:   MOV R6,#0F0H
DEL2:   MOV R7,#0F0H
DEL3:   DJNZ R7, DEL3
    DJNZ R6, DEL2
    DJNZ R5, DEL1
    RET
END